From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Wed, 18 Sep 2013 00:25:23 +0000 (+0000)
Subject: lisp/gnus/mm-decode.el (mm-add-meta-html-tag): Fix last change
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~3159
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=711668ac2d362719657db8a85fa1989545761412;p=emacs.git

lisp/gnus/mm-decode.el (mm-add-meta-html-tag): Fix last change
---

diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index 07e66b30e58..941849da183 100644
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -1415,7 +1415,7 @@ Return t if meta tag is added or replaced."
 	(goto-char (point-min))
 	(if (re-search-forward "\
 <meta\\s-+http-equiv=[\"']?content-type[\"']?\\s-+content=[\"']\
-text/\\(\\sw+\\)\\(?:\;\\s-*charset=\\([^\"'>]+\\)\\)?" nil t)
+text/\\(\\sw+\\)\\(?:\;\\s-*charset=\\([^\"'>]+\\)\\)?[^>]*>" nil t)
 	    (if (and (not force-charset)
 		     (match-beginning 2)
 		     (string-match "\\`html\\'" (match-string 1)))